home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / netconnect3 / amtelnet-ii / install_amtelnet < prev    next >
Text File  |  1999-11-21  |  32KB  |  727 lines

  1. ;******************************************************************************
  2. ;      ____           ______        __                  __
  3. ;     / __ \         /_  __/       / /                _/ /_
  4. ;    / /_/ /_   _     / /  ______ / /  ______ ______ /  __/
  5. ;   / __  // \_/ \   / /  / ____// /  / __  // ____/ / /
  6. ;  / / / // /__/ /  / /  / __/_ / /_ / / / // __/_  / /_
  7. ; /_/ /_//_/  /_/  /_/  /_____//___//_/ /_//_____/ /___/    II
  8. ;
  9. ; $VER: 0.98 (November-18-1999) 
  10. ; AmTelnet II ©1998-1999 by Oliver Wagner
  11. ; AmTelnet ©1996-1998 by Mathias Mischler 
  12. ; AmTelnet - AmTelnet II Installer ©1996,1997,1998,1999 by Robert C. Reiswig 
  13. ; If you wish to use any part of this installer you must ask. May not be 
  14. ; integrated/placed into any other package! You may NOT change this in an way!
  15. ; You man NOT take or use any part without direct permission from me! 
  16. ; Changes, suggestions or problems: amtelnet@vgr.com or rob@vapor.com
  17. ;******************************************************************************
  18. ;;if you fancy, you can do a "Old keyfiles are not recognized, mail <keyfile-update> etc." alike blurb, similiar to the apps
  19.  
  20. ;*** System Stuff ***
  21. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  22. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  23. (set osver (/ (getversion "LIBS:version.library") 65536))
  24. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  25. (set fastmem (- totmem graphmem))
  26.  
  27. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  28. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  29. (if (= osver 41) (set workbench "4.0")) 
  30.  
  31. (set cpu (database "cpu"))
  32. (if (exists "sys:libs/68060.library") (set #cpu 5) )
  33. (if (> (exists ("68060.library") (resident)) 0) (set #cpu 5) )
  34. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  35. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  36. (if (= cpu 68040) (set #cpu 4)) (if (= cpu 68060) (set #cpu 5)) 
  37.  
  38. (set vernum1 (getversion "AmTelnet"))
  39. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  40. (set AmTelnetver (cat ver1 "." rev1))
  41.  
  42. (set mfound 0) (set newicon1 1) 
  43. (set keeper 1) (set firsttime 0)
  44.  
  45. ;********************************************************************
  46. ; English Strings
  47. ;********************************************************************
  48. (set #about (cat "\nWelcome to AmTelnet II " AmTelnetver "\n\nCopyright © 1996-1999 by\n\nMathias Mischler\n & \nOliver Wagner\n<owagner@vapor.com>\n\nhttp://www.vapor.com/\nftp://ftp.vapor.com/pub/amtelnet") )
  49. (set #nomui (cat "\n\nAmTelnet II uses Magic User Interface (MUI).\n\nThe installer has not found MUI: to be assigned, "
  50.                  "therefore you AmTelnet II will not work correctly.  You will need to install "
  51.                  "MUI before running AmTelnet II."
  52.             )
  53. )
  54. (set #whereAmTelnet "Where do you wish to install AmTelnet II. A directory called 'AmTelnet' will be created if one is not there. If a copy of AmTelnet II is found it will be backed up.")
  55. (set muiver "No Version Installed")
  56. (set #newermui "\nAmTelnet II needs version 3.8 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui38usr.lha on Aminet in util/libs\n\nIt looks like you have: \n\n")
  57. (set #need-os "\n\nAmTelnet II needs version 2.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  58. (set #000used "\n\nThe 68000 version will be installed.") 
  59. (set #filethere1 "\n\nThe installer has found AmTelnet II version ")
  60. (set #filethere2 " at ")
  61. (set #filethere3 "\n\nThe file will be renamed to ")
  62. (set #filethere4 " and it will then be moved to ")
  63. (set #backuptoXXX "Back-UP to file named 'AmTelnet")
  64. (set #copyover "Copy Over Old Version")
  65. (set #AmTelnetfound "\nThe Installer has found a copy of AmTelnet already installed. What do you want to do?\n")
  66. (set #askcpu "\nCPU Check: What CPU does the machine have that you are installing AmTelnet on? The installer has found:\n")
  67. (set #newicon "\nDo you wish to copy over The AmTelnet Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  68. (set #nonewicon  "No  - ToolTypes already set.")
  69. (set #yesnewicon "Yes - Copy over Icon.")
  70. (set #pickicon "\nAmTelnet has 3 different icons you can use choose from. Which one would you like to use?\n")
  71. (set #nomultiview (cat "The installer could not find multiview or you are running on a 2.x Amiga. "
  72.                        "The AmTelnet II Installer will let you choose between 3 different icon to use. Their "
  73.                        "names are:\n\n'AmTelnet - Default'\n'AmTelnet2 - Globe'\n'AmTelnet3 - 4 Faces'\n\n"
  74.                        "You can use a picture viewer to look at the '3Icons.iff' to see the choices side-by-side, "
  75.                        "or you can just look in the drawer from where you are installing AmTelnet from."
  76.                   )
  77. )
  78. (set #whatcat "\nSelect the AmTelnet Language catalog you wish to install.\n")
  79. (set #wherecat "\nWhere do you wish to install the AmTelnet Language Catalog? Default is\n")
  80. (set #catnofind "Can not find this catalog in this AmTelnet archive. You may need to get the complete archive from the support site.")
  81. (set #whatdocs "\nWhat AmTelnet documentation would you like to install?\n")
  82. (set #wheredocs "Where would you like the AmTelnet documentation you selected to be installed?")
  83. (set #nofounddocs "\n\nThe Docs that are listed below, from the ones that you selected,  were not found in the AmTelnet archive. You may need to get the complete archive from the support site.")
  84. (set #whatrexx "What AREXX Commands would you like to install? They will be placed in ")
  85. (set #notinthisarc "(* = Not found in this archive.)")
  86. (set #rexxsize1 ". There is about ")
  87. (set #rexxsize2 "K total of AREXX scripts.\n")
  88. (set #rexx1 "Away        - Away/Back script")
  89. (set #rexx2 "Finger      - AmiTCP finger script")
  90. (set #rexx3 "Leave       - Leave a channel w/msg")
  91. (set #rexx4 "WallChop    - Message all Chops on a channel")
  92. (set #rexx5 "SendBrowser - Sends URLs to Broswers")
  93.  
  94. (set #whatsnd "\nWhat Sounds would you like to install? They will be placed in ")
  95. (set #sndsize1 ". There is about ")
  96. (set #sndsize2 "K total of Sound files.\n")
  97. (set #snd1 " Gost Set")
  98. (set #snd2 " Sandro Set")
  99. (set #snd3 " Smkn Set")
  100.  
  101. (set #whatsub "\nWhat Submissions would you like to install? They will be placed in ")
  102. (set #subsize1 ". There is about ")
  103. (set #subsize2 "K total of Submissions files.\n")
  104. (set #sub1 " Extra Icons")
  105. (set #sub2 " Extra ARexx Scripts")
  106. (set #sub3 " Toolmanager Animbrush")
  107.  
  108. (set #oktodelete1 "\nIs it ok to delete the older AmTelnet binary so that the AmTelnet Directory can be made?\n")
  109. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ AmTelnet binary so that the AmTelnet Directory can be made?\n")
  110. (set #ifyoulike (cat "If you like AmTelnet you might want to take a look at AmFTP.  It Includes the following:\n\nHigh speed asynchronous transfers for maximum efficiency, "
  111.                      "Batch download facility, Resume partially received files, FTP-Server Phonebook, Full ADT Support, Full ARexx support, Archie search engine, "
  112.                      "and much more!\n\nAmFTP can be found on Aminet in comm/tcp or\nhttp://www.vapor.com/AmFTP/"
  113.                 )
  114. )
  115.  
  116. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  117. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by AmTelnet were not installed.\n\n If you are Updating AmTelnet II then this is not a problem. If it is your first time installing AmTelnet II you will need to get an archive with these files.")
  118. (set #newermui "\nAmTelnet II needs version 3.3 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui33usr.lha on Aminet in dev/gui\n\nIt looks like you have: \n\n")
  119. (set #nompc "\nThe .MCC files for AmTelnet can not be installed to 'mui:libs/mui'")
  120. (set #byebye (cat "\nAmTelnet Install Complete!\n\n" ))
  121.  
  122. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. Voyager-NG needs version 40.16 to work correctly. You wany want to upgrade soon. (NOTE: if you keep 'setpatch' in a different place than 'c:' and its 40.16 or higher then this message is void.)")
  123. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can.")
  124.  
  125. (set #cpuver "\nWhat version of TextInput would you like to be installed?\n")
  126. (set #insregstuff " Install Register information")
  127. (set #insregstuffno " Don't Install Register information")
  128. (set #installerreg "\nThe installer did not find an AmTelnet key in the usual places. Do you wish to install the Register information?\n") 
  129.  
  130. (set #updatedlibs "\nInstall/Update the Vapor Libraries?\n* = Must be installed to work correctly\n(Click 'Help' for more info on the libs.)\n")
  131. (set #lib1 " Update library")
  132. (set #lib2 " Toolkit library (*)")
  133. (set #lib3 " Registration library (*)")
  134. (set #libhelp1 "vapor_update.library:\nIf installed every Vapor app will automagically check for updates by querying the Vapor server via Internet. You will be informed and offered automatic downloading if there is an update.")
  135. (set #libhelp2 "\n\nvapor_toolkit.library:\nContains support functions which are used by most Vapor applications and thus can be shared to reduce individual application code size. ie: Async I/O library, crytographically strong random number generator, math support.")
  136. (set #libhelp3 "\n\nvapor_registration.library:\nContains the core code for the registration utility\n")
  137. (set #wherelibs "Where do you wish to place the Vapor lib(s), 'Libs:' is default.")
  138. (set #flushing "\n\nTrying to flush old Vapor libraries from memory.")
  139.  
  140. (set #libdiff "\nThe installer found one of the Vapor libraries in 'LIBS:' to be a different version than a resident Vapor library (loaded in memory).")
  141. (set #rebootnote1 "\n\nNOTE: If you currently have a Vapor program running now it might have one of the Vapor libraries open. This may prevent the next Vapor application, that may need a newer library from this archive, from working. The installer has already tried to flush the old libraries. If this did not work you may need to reboot.")
  142. (set #rebootnote  "\n\nNOTE: It is strongly recommended that you reboot, after the installer is finished, to ensure that all updated libraries have been flushed. The libraries may be held open by VaporWare applications or MUI custom classes which are currently running.")
  143.  
  144. ;********************************************************************
  145. ; German Strings
  146. ;********************************************************************
  147. (if (= lan 1) (set OlliShareSomePizza TRUE_But_From_Long_Long_Long_Ago) )
  148.  
  149. ;********************************************************************
  150. ; Hello
  151. ;********************************************************************
  152. (message #about)
  153. (welcome) 
  154.  
  155. ;********************************************************************
  156. ; Check on Setpatch 
  157. ;********************************************************************
  158. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  159. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  160. (set current_setpatch "40.16")
  161. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  162.  
  163. ;********************************************************************
  164. ; Check on New installer 
  165. ;********************************************************************
  166. (set InstallerVer 0)
  167. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  168. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  169. (set current_installer "43.3")
  170. (if (< InstallerVer current_installer) (message #updateinstaller) )
  171.  
  172. ;********************************************************************
  173. ; MUI installed?
  174. ;********************************************************************
  175. (if (< (exists "mui:") 2)  (message #nomui) )
  176.  
  177. ;********************************************************************
  178. ; Check Last ENV
  179. ;********************************************************************
  180. (if (> (exists "env:Vapor/AmTelnet_LASTUSEDDIR") 0) 
  181.  (
  182.   (set lastdir (getenv "Vapor/AmTelnet_LASTUSEDDIR"))
  183.   (set lastdirlen (strlen lastdir))
  184.   (set tricklen (+ 1 (strlen (fileonly lastdir))))
  185.   (set lastdir (substr lastdir 0 (- lastdirlen tricklen) ) )
  186.  )
  187.  (set lastdir 0)
  188. )
  189.  
  190. ;********************************************************************
  191. ; Ask where to put AmTelnet & Make dir if needed
  192. ;********************************************************************
  193. (set Package (getassign "AmiTCP"))
  194. (if (= Package "") (set Package (getassign "Inet")) )
  195. (if (<> lastdir 0) (set Package lastdir))
  196.  
  197. (set AmTelnetdir  (askdir (prompt #whereAmTelnet)
  198.                (help   #whereAmTelnet)
  199.                     (default Package)
  200.                )  
  201. )
  202.  
  203. (set where AmTelnetdir)
  204.  
  205. (if (= 1 (exists (tackon where "AmTelnet") ) ) 
  206.   (
  207.     (set vernum1 (getversion (tackon where "AmTelnet") ))
  208.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  209.     (set AmTelnet_old (cat ver1 "." rev1))
  210.  
  211.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  212.                   (cat "AmTelnet" AmTelnet_old) #filethere4 (tackon AmTelnetdir "AmTelnet") )
  213.     )
  214.     
  215.  
  216.     (copyfiles (source (tackon where "AmTelnet"))
  217.                (dest where) 
  218.                (infos)
  219.                (newname (cat "AmTelnet" AmTelnet_old))
  220.     )
  221.     
  222.     (delete (tackon AmTelnetdir "AmTelnet") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  223.     
  224.  
  225.     (if (< (exists (tackon AmTelnetdir "AmTelnet")) 2) (makedir (tackon AmTelnetdir "AmTelnet") (infos)) )    
  226.  
  227.     (copyfiles (source (tackon where (cat "AmTelnet" AmTelnet_old) ))
  228.                        (dest (tackon AmTelnetdir "AmTelnet")) 
  229.                        (infos)
  230.                
  231.     )
  232.  
  233.     (delete (tackon where (cat "AmTelnet" AmTelnet_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  234.  
  235.     ;(set firsttime 1)
  236.  
  237.   )
  238. )
  239.  
  240.  
  241. (if (< (exists (tackon AmTelnetdir "AmTelnet")) 2) (makedir (tackon AmTelnetdir "AmTelnet") (infos)) )
  242.  
  243. ;********************************************************************
  244. ; copy rooticon if there
  245. ;********************************************************************
  246. (set pathI @icon)  (set pathIlen (strlen pathI))
  247. (set Inamelen (fileonly @icon))
  248. (set Inamelen (+ (strlen Inamelen) 1) )
  249. (set pathI (substr pathI 0 (- pathIlen Inamelen) ) )
  250.  
  251. (if (exists (cat pathI ".info"))
  252.   (copyfiles (source (cat pathI ".info")) (dest (tackon "/" where)) (newname "AmTelnet.info") (optional "nofail") ) 
  253. )
  254.  
  255. (set where (tackon AmTelnetdir "AmTelnet"))
  256. (set @default-dest where)
  257.  
  258.  
  259. ;********************************************************************
  260. ; Check for AmTelnet requs
  261. ;********************************************************************
  262. (set ver 0)
  263. (if (exists "mui:mui") 
  264.  (
  265.   (set vernum (getversion "mui:mui") )
  266.   (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  267.  
  268.   (if (= ver 7) (set muiver "2.0") )   (if (= ver 8) (set muiver "2.1") )
  269.   (if (= ver 9) (set muiver "2.2") )   (if (= ver 10) (set muiver "2.3") )
  270.   (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  271.   (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  272.   (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  273.   (if (= ver 15) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  274.   (if (= ver 17) (set muiver "3.8") )  (if (= ver 20) (set muiver "3.9") )
  275.   (if (= ver 19) (set muiver "4.0") )  (if (= ver 22) (set muiver "4.1") )
  276.  )
  277. )
  278.  
  279. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  280. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  281.  
  282. ;********************************************************************
  283. ; Check for old & backup
  284. ;********************************************************************
  285. (if (exists (tackon where "AmTelnet")) 
  286.   (
  287.       (set vernum1 (getversion (tackon where "AmTelnet") ))
  288.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  289.       (set AmTelnet_old (cat ver1 "." rev1))
  290.  
  291.       (set keeper  (askchoice (choices  (cat #backuptoXXX AmTelnet_old "'")  #copyover)
  292.                      (prompt #AmTelnetfound)
  293.                  (help   #AmTelnetfound)
  294.                      (default 0)
  295.                )
  296.       )    
  297.  
  298.  
  299.       (if (= keeper 0)
  300.          (copyfiles (source (tackon where "AmTelnet"))
  301.                      (dest where) 
  302.                      (infos)
  303.                      (newname (cat "AmTelnet" AmTelnet_old))
  304.          )
  305.       )          
  306.  
  307.       (set firsttime 1)
  308.     
  309.   )
  310. )
  311.  
  312. ;********************************************************************
  313. ; Copy over correct AmTelnet and Icon if wanted
  314. ;********************************************************************
  315. (copyfiles (source "AmTelnet") (dest where) (optional "nofail") )
  316.  
  317. (if (= firsttime 0)  (copyfiles (source "AmTelnet.info") (dest where) (optional "nofail") ) )
  318.  
  319.  
  320. (if (= keeper 0) 
  321.   (
  322.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  323.                            (prompt #newicon)
  324.                        (help   #newicon)
  325.                            (default 0)
  326.             )
  327.    )
  328.   
  329.    (if (= newicon 0) 
  330.      (copyfiles (source "AmTelnet.info") (dest where)  (optional "nofail") )
  331.    )
  332.  
  333.   )
  334. )
  335.  
  336. ;********************************************************************
  337. ; Select and copy over amtelnet Catalog
  338. ;********************************************************************
  339. (if (> (exists "catalogs") 0) 
  340. (
  341. (set XX 0) (set lan 0)
  342. (foreach "Catalogs" "#?"
  343.  (
  344.   (set XX (+ XX 1)) 
  345.   (textfile (dest (cat "ENV:i.høld." XX)) (append @each-name) ) 
  346.   (if (= lanfound @each-name) (set lan XX))
  347.  
  348.   (if (= (patmatch "#?.c#?" @each-name) 1) 
  349.      ( (delete (cat "ENV:i.høld." XX)) (set XX (- XX 1))  )
  350.   )
  351.  
  352.  )
  353. )
  354.  
  355. (set l1 "N/A") (set l2 "N/A") (set l3 "N/A") (set l4 "N/A") (set l5 "N/A")
  356. (set l6 "N/A") (set l7 "N/A") (set l8 "N/A") (set l9 "N/A") (set l10 "N/A")
  357. (set l11 "N/A") (set l12 "N/A") (set l13 "N/A") (set l14 "N/A") (set l15 "N/A") 
  358.  
  359. (set l0 "English")
  360. (if (> (exists ("ENV:i.høld.1")) 0)   (set l1 (getenv "ENV:i.høld.1")) ) (if (> (exists ("ENV:i.høld.2")) 0)   (set l2 (getenv "ENV:i.høld.2")) )
  361. (if (> (exists ("ENV:i.høld.3")) 0)   (set l3 (getenv "ENV:i.høld.3")) ) (if (> (exists ("ENV:i.høld.4")) 0)   (set l4 (getenv "ENV:i.høld.4")) )
  362. (if (> (exists ("ENV:i.høld.5")) 0)   (set l5 (getenv "ENV:i.høld.5")) ) (if (> (exists ("ENV:i.høld.6")) 0)   (set l6 (getenv "ENV:i.høld.6")) )
  363. (if (> (exists ("ENV:i.høld.7")) 0)   (set l7 (getenv "ENV:i.høld.7")) ) (if (> (exists ("ENV:i.høld.8")) 0)   (set l8 (getenv "ENV:i.høld.8")) )
  364. (if (> (exists ("ENV:i.høld.9")) 0)   (set l9 (getenv "ENV:i.høld.9")) ) (if (> (exists ("ENV:i.høld.10")) 0) (set l10 (getenv "ENV:i.høld.10")) )
  365. (if (> (exists ("ENV:i.høld.11")) 0) (set l11 (getenv "ENV:i.høld.11")) )(if (> (exists ("ENV:i.høld.12")) 0) (set l12 (getenv "ENV:i.høld.12")) )
  366. (if (> (exists ("ENV:i.høld.12")) 0) (set l13 (getenv "ENV:i.høld.13")) )(if (> (exists ("ENV:i.høld.14")) 0) (set l14 (getenv "ENV:i.høld.14")) )
  367. (if (> (exists ("ENV:i.høld.15")) 0) (set l15 (getenv "ENV:i.høld.15")) )(if (> (exists ("ENV:i.høld.16")) 0) (set l15 (getenv "ENV:i.høld.16")) )
  368. (run "delete env:i.høld.#?")
  369.  
  370. (set catalog (askchoice (choices l0 l1 l2 l3 l4 l5 l6 l7 l8 l9 l10 l11)            
  371.                         (prompt #whatcat)
  372.                     (help   #whatcat)
  373.                         (default lan)
  374.              )
  375. )
  376.  
  377. (if (= catalog 0)  (set #lcat l0))  
  378. (if (= catalog 1)  (set #lcat l1))  (if (= catalog 2)  (set #lcat l2))  (if (= catalog 3)  (set #lcat l3))  
  379. (if (= catalog 4)  (set #lcat l4))  (if (= catalog 5)  (set #lcat l5))  (if (= catalog 5)  (set #lcat l5))
  380. (if (= catalog 6)  (set #lcat l6))  (if (= catalog 7)  (set #lcat l7))  (if (= catalog 8)  (set #lcat l8))  
  381. (if (= catalog 9)  (set #lcat l9))  (if (= catalog 10) (set #lcat l10)) (if (= catalog 11) (set #lcat l11))
  382. (if (= catalog 12) (set #lcat l12)) (if (= catalog 13) (set #lcat l13)) (if (= catalog 14) (set #lcat l14)) 
  383. (if (= catalog 15) (set #lcat l15)) (if (= catalog 16) (set #lcat l16))
  384.  
  385.  
  386. (if (AND (<> catalog 0) (<> #lcat "N/A"))
  387.  (
  388.   (if (> (exists (cat "Catalogs/" #lcat "/amtelnet.catalog")) 0)
  389.     (
  390.         (set wherecat  (askchoice (choices (tackon where (cat "Catalogs/" #lcat)) (cat "Locale:Catalogs/" #lcat) )
  391.                                   (prompt (cat #wherecat (tackon where (cat "Catalogs/" #lcat)) "\n"))
  392.                             (help   #wherecat)
  393.                                (default 0)
  394.                        )  
  395.         )
  396.  
  397.       (if (= wherecat 1)
  398.         (
  399.          (if (< (exists "Locale:") 2) ( (makedir "sys:Locale") (makeassign "Locale" "sys:Locale") ) )
  400.          (if (< (exists "Locale:Catalogs") 2) (makedir "sys:Locale/Catalogs") )
  401.          (if (< (exists (cat "Locale:Catalogs/" #lcat)) 2) (makedir (cat "sys:Locale/Catalogs/" #lcat)) )
  402.          (copylib (source (cat "Catalogs/" #lcat "/amtelnet.catalog")) (dest (cat "sys:Locale/Catalogs/" #lcat)) )
  403.         )
  404.   
  405.         (
  406.          (if (< (exists (tackon where "Catalogs")) 2) (makedir (tackon where "Catalogs")) )
  407.          (if (< (exists (tackon where (cat "Catalogs/" #lcat)) ) 2) (makedir (tackon where (cat "Catalogs/" #lcat)) ) )
  408.          (copylib (source (cat "Catalogs/" #lcat "/amtelnet.catalog")) (dest (tackon where (cat "Catalogs/" #lcat)) ) (optional "nofail") )
  409.         )
  410.       )
  411.  
  412.     )
  413.  
  414.     (message (cat "\nCatalogs/" #lcat "/amtelnet.catalog\n\n" #catnofind))
  415.   )
  416.  
  417.  )
  418. )
  419. ); End if Catalog dir
  420. ); 
  421.  
  422. ;********************************************************************
  423. ; Ask and and copy docs if wanted!
  424. ;********************************************************************
  425. (set nodocs 0)
  426.  
  427. (set docs (askoptions (choices "AmTelnet.ReadMe")
  428.               (prompt #whatdocs)
  429.                       (help #whatdocs)
  430.                   (default 1)
  431.       )
  432. )
  433.  
  434.  
  435.  
  436. (if (<> docs 0)
  437.  (
  438.    (set docsdir (askdir (prompt #wheredocs)
  439.                (help   #wheredocs)
  440.                     (default where)
  441.                 )  
  442.    )
  443.  
  444.    (if (> (exists "AmTelnet.Changes") 0) 
  445.     (if (IN docs 0) (copyfiles (source "AmTelnet.ReadMe") (dest docsdir) (infos) (optional "nofail") ) )
  446.     ( (set #nofounddocs (cat #nofounddocs "\n\nAmTelnet.ReadMe")) (set nodocs 1) )
  447.    )
  448.  
  449.    ;(if (= nodocs 1) (message #nofounddocs) ) 
  450.  
  451.  )
  452. )
  453.  
  454. ;********************************************************************
  455. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  456. ;********************************************************************
  457. (if (> #cpu 1) (set guesscpu 1) (set guesscpu 0)) 
  458.  
  459. ;Check for MUI stuff in 'Libs' or 'MUI/Libs'
  460.  (if (exists "Libs/MUI") (set mui_localdir "Libs/MUI"))
  461.  (if (exists "MUI") (set mui_localdir "MUI"))
  462.  
  463. (if (<> (getassign "mui") "")
  464. (
  465.   (if (> (exists "mui:libs/mui") 0) 
  466.    (
  467.  
  468.     (if (> (exists (tackon mui_localdir "Textinput.mcc.020")) 0)
  469.       (set whatver (askchoice (choices  "68000" "68020")
  470.                       (prompt #cpuver)
  471.                   (help   #cpuver)
  472.                       (default guesscpu)
  473.                )
  474.       )
  475.     )
  476.  
  477.     (working #updatingmuic)
  478.     (foreach mui_localdir "#?.mcp"
  479.       (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  480.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  481.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  482.       )
  483.     )
  484.  
  485.     (foreach mui_localdir "#?.mcc"
  486.        (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  487.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  488.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  489.        )  
  490.     )
  491.    )
  492.  
  493.    (message (cat #newermui muiver #nompc)) 
  494.   )
  495. )
  496. )
  497.  
  498. ;********************************************************************
  499. ; Copy update Lib if wanted 
  500. ;********************************************************************
  501. (set deflibs 7)
  502. (if (> (exists "libs") 0)
  503.  (
  504.   (set deflibs 0)
  505.   (if (> (exists (tackon "libs" "vapor_update.library")) 0)       (set deflibs (+ deflibs 1)))
  506.   (if (> (exists (tackon "libs" "vapor_toolkit.library")) 0)      (set deflibs (+ deflibs 2)))
  507.   (if (> (exists (tackon "libs" "vapor_registration.library")) 0) (set deflibs (+ deflibs 4)))
  508.  
  509.   (set libPick (askoptions (choices #lib1 #lib2 #lib3)
  510.               (prompt #updatedlibs)
  511.                       (help   (cat #libhelp1 #libhelp2 #libhelp3))
  512.                     (default deflibs)
  513.            )
  514.   )
  515.  
  516.   (if (> libPick 0)
  517.    (
  518.     (set wherelibs (askdir (prompt #wherelibs)
  519.                   (help   #wherelibs)
  520.                        (default "LIBS:")
  521.                    )  
  522.     )
  523.     
  524.     (if (IN libPick 0)
  525.      (if (> (exists (tackon "libs" "vapor_update.library")) 0)
  526.       (copylib (source (tackon "libs" "vapor_update.library")) (dest wherelibs) (optional "nofail"))  
  527.      )
  528.     )
  529.  
  530.     (if (IN libPick 1)
  531.      (if (> (exists (tackon "libs" "vapor_toolkit.library")) 0)
  532.       (copylib (source (tackon "libs" "vapor_toolkit.library")) (dest wherelibs) (optional "nofail"))  
  533.      )
  534.     )
  535.  
  536.     (if (IN libPick 2)
  537.      (if (> (exists (tackon "libs" "vapor_registration.library")) 0)
  538.       (copylib (source (tackon "libs" "vapor_registration.library")) (dest wherelibs) (optional "nofail"))  
  539.      )
  540.     )
  541.  
  542.    (working #flushing) ;(run "avail flush > NIL:") (run "avail flush > NIL:") (run "avail flush > NIL:")
  543.  
  544.    (if (exists "flushlib")
  545.      (run "flushlib QUIET vapor_#?.library CManager.#?")
  546.    )
  547.   
  548.  
  549.    )
  550.  
  551.   )
  552.  )
  553. )
  554.  
  555. ;********************************************************************
  556. ; Check version of libs resident VS in libs: then note reboot
  557. ;********************************************************************
  558. (if (> (exists "libs") 0)
  559.  (
  560.   (set lib_localdir "Libs:")
  561.  
  562.   (procedure checkversion
  563.    (set vernum1 (getversion (tackon lib_localdir ver_checkfile)))
  564.    (set ver1 (/ vernum1 65536)) 
  565.    (set rev1 (- vernum1 (* ver1 65536) ) )
  566.    (set ver_result (cat ver1 "." rev1))
  567.   )
  568.   (procedure checkversionR
  569.    (set vernum1 (getversion (tackon lib_localdir ver_checkfile) (resident)))
  570.    (set ver1 (/ vernum1 65536)) 
  571.    (set rev1 (- vernum1 (* ver1 65536) ) )
  572.    (set ver_result (cat ver1 "." rev1))
  573.   )
  574.  
  575.   (set ver_checkfile "vapor_toolkit.library") (checkversion) (set toolkit_ver ver_result)
  576.   (set ver_checkfile "vapor_update.library") (checkversion) (set update_ver ver_result)
  577.   (set ver_checkfile "vapor_registration.library") (checkversion) (set reg_ver ver_result)
  578.  
  579.   (if (= toolkit_ver "0.0") (set toolkit_ver "None"))
  580.   (if (= update_ver "0.0") (set update_ver "None"))
  581.   (if (= reg_ver "0.0") (set reg_ver "None"))
  582.  
  583.   (set lib_localdir "")
  584.   (set ver_checkfile "vapor_toolkit.library") (checkversionR) (set toolkit_verR ver_result)
  585.   (set ver_checkfile "vapor_update.library") (checkversionR) (set update_verR ver_result)
  586.   (set ver_checkfile "vapor_registration.library") (checkversionR) (set reg_verR ver_result)
  587.  
  588.   (if (= toolkit_verR "0.0") (set toolkit_verR "None"))
  589.   (if (= update_verR "0.0") (set update_verR "None"))
  590.   (if (= reg_verR "0.0") (set reg_verR "None"))
  591.  
  592.  
  593.   (set #verchecklib (cat "Vapor Library Version Check\n------------------------------------\n"
  594.                          "vapor_toolkit.library\nIn 'LIBS:' " toolkit_ver " (In memory: " toolkit_verR ")" 
  595.                          "\n\nvapor_update.library\nIn 'LIBS:' " update_ver " (In memory: " update_verR ")" 
  596.                          "\n\nvapor_registration.library\nIn 'LIBS:' " reg_ver " (In memory: " reg_verR ")"
  597.                     ) 
  598.   )
  599.   
  600.   (set libdiff 0)
  601.   (if (<> toolkit_ver toolkit_verR) (set libdiff 1)) 
  602.   (if (<> update_ver update_verR)   (set libdiff 1))
  603.   (if (<> reg_ver reg_verR)         (set libdiff 1)) 
  604.  
  605.   (if (= libdiff 1)
  606.    (
  607.     (message #verchecklib)
  608.     (message (cat #libdiff #rebootnote))
  609.    )
  610.   )
  611.  
  612.  )
  613. )
  614.  
  615. ;********************************************************************
  616. ; copy keyfile if there 
  617. ;********************************************************************
  618. (if (exists ("RegisterAmTelnet"))
  619.  (copyfiles (source "RegisterAmTelnet") (dest where)  (infos) (optional "nofail") )
  620. )
  621.  
  622. ;(if (> (exists "AmT.Key") 0)
  623. ; (copyfiles (source "AmTelnet.Key") (dest where) (infos) (optional "nofail") ) 
  624. ;)
  625.  
  626. (if (> (exists "AmTelnet-2.Key") 0)
  627.  (copyfiles (source "AmTelnet-2.Key") (dest where) (infos) (optional "nofail") ) 
  628. )
  629.  
  630.  
  631. (if (> (exists "animation.txt") 0)
  632.  (copyfiles (source "animation.txt") (dest where) (infos) (optional "nofail") ) 
  633. )
  634.  
  635. ;********************************************************************
  636. ; Reg stuff Register-AmTelnet
  637. ;********************************************************************
  638. (procedure checkforkey
  639.  (set foundkey 0) 
  640.  (set kc "AmTelnet-2.key")
  641.  
  642.  (if (exists kc (noreq)) (set foundkey 1) )
  643.  (if (exists (tackon where kc) (noreq)) (set foundkey 1) )
  644.  (if (exists (tackon "s:" kc) (noreq)) (set foundkey 1) )
  645.  (if (exists (tackon "l:" kc) (noreq)) (set foundkey 1) )
  646.  (if (exists (tackon "libs:" kc) (noreq)) (set foundkey 1) )
  647.  (if (exists (tackon "keypath:" kc) (noreq)) (set foundkey 1) )
  648.  (if (exists (tackon "keyfiles:" kc) (noreq)) (set foundkey 1) )
  649.  
  650.  (if (= foundkey 0)
  651.   (set wantkey (askchoice  (choices #insregstuffno #insregstuff)
  652.                        (prompt #installerreg)
  653.                            (help #installerreg)
  654.                        (default 1)
  655.                )
  656.   )
  657.  
  658.   (set wantkey 0)
  659.  )
  660. )
  661.  
  662. (checkforkey)
  663.  
  664. (if (AND (exists "Register-AmTelnet") (= wantkey 1))
  665.  (
  666.   (if (< (exists (tackon where "Register-AmTelnet")) 2) (makedir (tackon where "Register-AmTelnet") (infos)) )    
  667.   (if (exists "Register-AmTelnet.info")
  668.     (copyfiles (source "Register-AmTelnet.info") (dest where) (optional "nofail") ) 
  669.   )
  670.   (set whereR (tackon where "Register-AmTelnet"))
  671.  
  672.  
  673.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" )
  674.                            (prompt "What Registration Files (Language) would you like to install?")
  675.                        (help   "What Registration Files (Language) would you like to install?")
  676.                         (default 0)
  677.                 )  
  678.   )
  679.  
  680.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  681.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  682.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  683.  
  684.   (if (exists "Register-AmTelnet/RegistrationUtility") 
  685.     (copyfiles (source "Register-AmTelnet/RegistrationUtility")
  686.                (dest whereR)
  687.                (infos)
  688.     )
  689.   )
  690.  
  691.   ;(if (exists (tackon "Register-AmTelnet" (cat "Regtool-" basereg ".info")) )
  692.   ;  (copyfiles (source (tackon "Register-AmTelnet" (cat "Regtool-" basereg ".info")) )
  693.   ;             (dest whereR) 
  694.   ;             (newname "RegistrationUtility.info")
  695.   ;  )
  696.   ;)
  697.  
  698.   (if (exists (tackon "Register-AmTelnet" (cat "Reg_" basereg ".guide")) ) 
  699.     (copyfiles (source (tackon "Register-AmTelnet" (cat "Reg_" basereg ".guide")))
  700.                (dest whereR) 
  701.                (infos)
  702.     )
  703.   )
  704.  
  705.   (if (exists (tackon "Register-AmTelnet" (cat "Reg_" basereg ".doc")) )
  706.     (copyfiles (source (tackon "Register-AmTelnet" (cat "Reg_" basereg ".doc")))
  707.                (dest whereR) 
  708.                (infos)
  709.     )
  710.   )
  711.  
  712.  
  713.  )
  714. )
  715.  
  716. ;********************************************************************
  717. ; No AmFTP Plug and End Bye 
  718. ;********************************************************************
  719. ;(message #ifyoulike)
  720. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  721. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  722. (run (cat "run " #mpath "/multiview AmTelnet.ReadMe") )
  723.  
  724.  
  725. (exit #byebye)
  726.